<?php
if (!defined('CRLF')) define('CRLF', "\r\n");
if (!defined("FTP_AUTOASCII")) define("FTP_AUTOASCII", -1);
if (!defined("FTP_BINARY")) define("FTP_BINARY", 1);
if (!defined("FTP_ASCII")) define("FTP_ASCII", 0);
if (!defined('FTP_FORCE')) define('FTP_FORCE', TRUE);

define('FTP_OS_Unix', 'u');
define('FTP_OS_Windows', 'w');
define('FTP_OS_Mac', 'm');

$mod_sockets = TRUE;
if (!extension_loaded('sockets')) {
    $prefix = (PHP_SHLIB_SUFFIX == 'dll') ? 'php_' : '';
    if (!@dl($prefix . 'sockets.' . PHP_SHLIB_SUFFIX)) $mod_sockets = FALSE;
}

if ($mod_sockets) {
    class appRain_Base_Modules_Ftp extends appRain_Base_Modules_FtpBase
    {

        function ftp($verb = FALSE, $le = FALSE)
        {
            $this->__construct($verb, $le);
        }

        function __construct($verb = FALSE, $le = FALSE)
        {
            parent::__construct(true, $verb, $le);
        }

        // <!-- --------------------------------------------------------------------------------------- -->
        // <!--       Private functions                                                                 -->
        // <!-- --------------------------------------------------------------------------------------- -->

        function _settimeout($sock)
        {
            if (!@socket_set_option($sock, SOL_SOCKET, SO_RCVTIMEO, array("sec" => $this->_timeout, "usec" => 0))) {
                $this->PushError('_connect', 'socket set receive timeout', socket_strerror(socket_last_error($sock)));
                @socket_close($sock);
                return FALSE;
            }
            if (!@socket_set_option($sock, SOL_SOCKET, SO_SNDTIMEO, array("sec" => $this->_timeout, "usec" => 0))) {
                $this->PushError('_connect', 'socket set send timeout', socket_strerror(socket_last_error($sock)));
                @socket_close($sock);
                return FALSE;
            }
            return true;
        }

        function _connect($host, $port)
        {
            $this->SendMSG("Creating socket");
            if (!($sock = @socket_create(AF_INET, SOCK_STREAM, SOL_TCP))) {
                $this->PushError('_connect', 'socket create failed', socket_strerror(socket_last_error($sock)));
                return FALSE;
            }
            if (!$this->_settimeout($sock)) return FALSE;
            $this->SendMSG("Connecting to \"" . $host . ":" . $port . "\"");
            if (!($res = @socket_connect($sock, $host, $port))) {
                $this->PushError('_connect', 'socket connect failed', socket_strerror(socket_last_error($sock)));
                @socket_close($sock);
                return FALSE;
            }
            $this->_connected = true;
            return $sock;
        }

        function _readmsg($fnction = "_readmsg")
        {
            if (!$this->_connected) {
                $this->PushError($fnction, 'Connect first');
                return FALSE;
            }
            $result = true;
            $this->_message = "";
            $this->_code = 0;
            $go = true;
            do {
                $tmp = @socket_read($this->_ftp_control_sock, 4096, PHP_BINARY_READ);
                if ($tmp === false) {
                    $go = $result = false;
                    $this->PushError($fnction, 'Read failed', socket_strerror(socket_last_error($this->_ftp_control_sock)));
                }
                else {
                    $this->_message .= $tmp;
                    $go = !preg_match("/^([0-9]{3})(-.+\\1)? [^" . CRLF . "]+" . CRLF . "$/Us", $this->_message, $regs);
                }
            } while ($go);
            if ($this->LocalEcho) echo "GET < " . rtrim($this->_message, CRLF) . CRLF;
            $this->_code = (int)$regs[1];
            return $result;
        }

        function _exec($cmd, $fnction = "_exec")
        {
            if (!$this->_ready) {
                $this->PushError($fnction, 'Connect first');
                return FALSE;
            }
            if ($this->LocalEcho) echo "PUT > ", $cmd, CRLF;
            $status = @socket_write($this->_ftp_control_sock, $cmd . CRLF);
            if ($status === false) {
                $this->PushError($fnction, 'socket write failed', socket_strerror(socket_last_error($this->stream)));
                return FALSE;
            }
            $this->_lastaction = time();
            if (!$this->_readmsg($fnction)) return FALSE;
            return TRUE;
        }

        function _data_prepare($mode = FTP_ASCII)
        {
            if (!$this->_settype($mode)) return FALSE;
            $this->SendMSG("Creating data socket");
            $this->_ftp_data_sock = @socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
            if ($this->_ftp_data_sock < 0) {
                $this->PushError('_data_prepare', 'socket create failed', socket_strerror(socket_last_error($this->_ftp_data_sock)));
                return FALSE;
            }
            if (!$this->_settimeout($this->_ftp_data_sock)) {
                $this->_data_close();
                return FALSE;
            }
            if ($this->_passive) {
                if (!$this->_exec("PASV", "pasv")) {
                    $this->_data_close();
                    return FALSE;
                }
                if (!$this->_checkCode()) {
                    $this->_data_close();
                    return FALSE;
                }
                $ip_port = explode(",", ereg_replace("^.+ \\(?([0-9]{1,3},[0-9]{1,3},[0-9]{1,3},[0-9]{1,3},[0-9]+,[0-9]+)\\)?.*" . CRLF . "$", "\\1", $this->_message));
                $this->_datahost = $ip_port[0] . "." . $ip_port[1] . "." . $ip_port[2] . "." . $ip_port[3];
                $this->_dataport = (((int)$ip_port[4]) << 8) + ((int)$ip_port[5]);
                $this->SendMSG("Connecting to " . $this->_datahost . ":" . $this->_dataport);
                if (!@socket_connect($this->_ftp_data_sock, $this->_datahost, $this->_dataport)) {
                    $this->PushError("_data_prepare", "socket_connect", socket_strerror(socket_last_error($this->_ftp_data_sock)));
                    $this->_data_close();
                    return FALSE;
                }
                else $this->_ftp_temp_sock = $this->_ftp_data_sock;
            }
            else {
                if (!@socket_getsockname($this->_ftp_control_sock, $addr, $port)) {
                    $this->PushError("_data_prepare", "can't get control socket information", socket_strerror(socket_last_error($this->_ftp_control_sock)));
                    $this->_data_close();
                    return FALSE;
                }
                if (!@socket_bind($this->_ftp_data_sock, $addr)) {
                    $this->PushError("_data_prepare", "can't bind data socket", socket_strerror(socket_last_error($this->_ftp_data_sock)));
                    $this->_data_close();
                    return FALSE;
                }
                if (!@socket_listen($this->_ftp_data_sock)) {
                    $this->PushError("_data_prepare", "can't listen data socket", socket_strerror(socket_last_error($this->_ftp_data_sock)));
                    $this->_data_close();
                    return FALSE;
                }
                if (!@socket_getsockname($this->_ftp_data_sock, $this->_datahost, $this->_dataport)) {
                    $this->PushError("_data_prepare", "can't get data socket information", socket_strerror(socket_last_error($this->_ftp_data_sock)));
                    $this->_data_close();
                    return FALSE;
                }
                if (!$this->_exec('PORT ' . str_replace('.', ',', $this->_datahost . '.' . ($this->_dataport >> 8) . '.' . ($this->_dataport & 0x00FF)), "_port")) {
                    $this->_data_close();
                    return FALSE;
                }
                if (!$this->_checkCode()) {
                    $this->_data_close();
                    return FALSE;
                }
            }
            return TRUE;
        }

        function _data_read($mode = FTP_ASCII, $fp = NULL)
        {
            $NewLine = $this->_eol_code[$this->OS_local];
            if (is_resource($fp)) $out = 0;
            else $out = "";
            if (!$this->_passive) {
                $this->SendMSG("Connecting to " . $this->_datahost . ":" . $this->_dataport);
                $this->_ftp_temp_sock = socket_accept($this->_ftp_data_sock);
                if ($this->_ftp_temp_sock === FALSE) {
                    $this->PushError("_data_read", "socket_accept", socket_strerror(socket_last_error($this->_ftp_temp_sock)));
                    $this->_data_close();
                    return FALSE;
                }
            }

            while (($block = @socket_read($this->_ftp_temp_sock, $this->_ftp_buff_size, PHP_BINARY_READ)) !== false) {
                if ($block === "") break;
                if ($mode != FTP_BINARY) $block = preg_replace("/\r\n|\r|\n/", $this->_eol_code[$this->OS_local], $block);
                if (is_resource($fp)) $out += fwrite($fp, $block, strlen($block));
                else $out .= $block;
            }
            return $out;
        }

        function _data_write($mode = FTP_ASCII, $fp = NULL)
        {
            $NewLine = $this->_eol_code[$this->OS_local];
            if (is_resource($fp)) $out = 0;
            else $out = "";
            if (!$this->_passive) {
                $this->SendMSG("Connecting to " . $this->_datahost . ":" . $this->_dataport);
                $this->_ftp_temp_sock = socket_accept($this->_ftp_data_sock);
                if ($this->_ftp_temp_sock === FALSE) {
                    $this->PushError("_data_write", "socket_accept", socket_strerror(socket_last_error($this->_ftp_temp_sock)));
                    $this->_data_close();
                    return false;
                }
            }
            if (is_resource($fp)) {
                while (!feof($fp)) {
                    $block = fread($fp, $this->_ftp_buff_size);
                    if (!$this->_data_write_block($mode, $block)) return false;
                }
            } elseif (!$this->_data_write_block($mode, $fp)) return false;
            return true;
        }

        function _data_write_block($mode, $block)
        {
            if ($mode != FTP_BINARY) $block = preg_replace("/\r\n|\r|\n/", $this->_eol_code[$this->OS_remote], $block);
            do {
                if (($t = @socket_write($this->_ftp_temp_sock, $block)) === FALSE) {
                    $this->PushError("_data_write", "socket_write", socket_strerror(socket_last_error($this->_ftp_temp_sock)));
                    $this->_data_close();
                    return FALSE;
                }
                $block = substr($block, $t);
            } while (!empty($block));
            return true;
        }

        function _data_close()
        {
            @socket_close($this->_ftp_temp_sock);
            @socket_close($this->_ftp_data_sock);
            $this->SendMSG("Disconnected data from remote host");
            return TRUE;
        }

        function _quit()
        {
            if ($this->_connected) {
                @socket_close($this->_ftp_control_sock);
                $this->_connected = false;
                $this->SendMSG("Socket closed");
            }
        }
    }
}
else {
    class appRain_Base_Modules_Ftp extends appRain_Base_Modules_FtpBase
    {

        function ftp($verb = FALSE, $le = FALSE)
        {
            $this->__construct($verb, $le);
        }

        function __construct($verb = FALSE, $le = FALSE)
        {
            parent::__construct(false, $verb, $le);
        }

        // <!-- --------------------------------------------------------------------------------------- -->
        // <!--       Private functions                                                                 -->
        // <!-- --------------------------------------------------------------------------------------- -->

        function _settimeout($sock)
        {
            if (!@stream_set_timeout($sock, $this->_timeout)) {
                $this->PushError('_settimeout', 'socket set send timeout');
                $this->_quit();
                return FALSE;
            }
            return TRUE;
        }

        function _connect($host, $port)
        {
            $this->SendMSG("Creating socket");
            $sock = @fsockopen($host, $port, $errno, $errstr, $this->_timeout);
            if (!$sock) {
                $this->PushError('_connect', 'socket connect failed', $errstr . " (" . $errno . ")");
                return FALSE;
            }
            $this->_connected = true;
            return $sock;
        }

        function _readmsg($fnction = "_readmsg")
        {
            if (!$this->_connected) {
                $this->PushError($fnction, 'Connect first');
                return FALSE;
            }
            $result = true;
            $this->_message = "";
            $this->_code = 0;
            $go = true;
            do {
                $tmp = @fgets($this->_ftp_control_sock, 512);
                if ($tmp === false) {
                    $go = $result = false;
                    $this->PushError($fnction, 'Read failed');
                }
                else {
                    $this->_message .= $tmp;
                    if (preg_match("/^([0-9]{3})(-(.*[" . CRLF . "]{1,2})+\\1)? [^" . CRLF . "]+[" . CRLF . "]{1,2}$/", $this->_message, $regs)) $go = false;
                }
            } while ($go);
            if ($this->LocalEcho) echo "GET < " . rtrim($this->_message, CRLF) . CRLF;
            $this->_code = (int)$regs[1];
            return $result;
        }

        function _exec($cmd, $fnction = "_exec")
        {
            if (!$this->_ready) {
                $this->PushError($fnction, 'Connect first');
                return FALSE;
            }
            if ($this->LocalEcho) echo "PUT > ", $cmd, CRLF;
            $status = @fputs($this->_ftp_control_sock, $cmd . CRLF);
            if ($status === false) {
                $this->PushError($fnction, 'socket write failed');
                return FALSE;
            }
            $this->_lastaction = time();
            if (!$this->_readmsg($fnction)) return FALSE;
            return TRUE;
        }

        function _data_prepare($mode = FTP_ASCII)
        {
            if (!$this->_settype($mode)) return FALSE;
            if ($this->_passive) {
                if (!$this->_exec("PASV", "pasv")) {
                    $this->_data_close();
                    return FALSE;
                }
                if (!$this->_checkCode()) {
                    $this->_data_close();
                    return FALSE;
                }
                $ip_port = explode(",", ereg_replace("^.+ \\(?([0-9]{1,3},[0-9]{1,3},[0-9]{1,3},[0-9]{1,3},[0-9]+,[0-9]+)\\)?.*" . CRLF . "$", "\\1", $this->_message));
                $this->_datahost = $ip_port[0] . "." . $ip_port[1] . "." . $ip_port[2] . "." . $ip_port[3];
                $this->_dataport = (((int)$ip_port[4]) << 8) + ((int)$ip_port[5]);
                $this->SendMSG("Connecting to " . $this->_datahost . ":" . $this->_dataport);
                $this->_ftp_data_sock = @fsockopen($this->_datahost, $this->_dataport, $errno, $errstr, $this->_timeout);
                if (!$this->_ftp_data_sock) {
                    $this->PushError("_data_prepare", "fsockopen fails", $errstr . " (" . $errno . ")");
                    $this->_data_close();
                    return FALSE;
                }
                else $this->_ftp_data_sock;
            } else {
                $this->SendMSG("Only passive connections available!");
                return FALSE;
            }
            return TRUE;
        }

        function _data_read($mode = FTP_ASCII, $fp = NULL)
        {
            if (is_resource($fp)) $out = 0;
            else $out = "";
            if (!$this->_passive) {
                $this->SendMSG("Only passive connections available!");
                return FALSE;
            }
            while (!feof($this->_ftp_data_sock)) {
                $block = fread($this->_ftp_data_sock, $this->_ftp_buff_size);
                if ($mode != FTP_BINARY) $block = preg_replace("/\r\n|\r|\n/", $this->_eol_code[$this->OS_local], $block);
                if (is_resource($fp)) $out += fwrite($fp, $block, strlen($block));
                else $out .= $block;
            }
            return $out;
        }

        function _data_write($mode = FTP_ASCII, $fp = NULL)
        {
            if (is_resource($fp)) $out = 0;
            else $out = "";
            if (!$this->_passive) {
                $this->SendMSG("Only passive connections available!");
                return FALSE;
            }
            if (is_resource($fp)) {
                while (!feof($fp)) {
                    $block = fread($fp, $this->_ftp_buff_size);
                    if (!$this->_data_write_block($mode, $block)) return false;
                }
            } elseif (!$this->_data_write_block($mode, $fp)) return false;
            return TRUE;
        }

        function _data_write_block($mode, $block)
        {
            if ($mode != FTP_BINARY) $block = preg_replace("/\r\n|\r|\n/", $this->_eol_code[$this->OS_remote], $block);
            do {
                if (($t = @fwrite($this->_ftp_data_sock, $block)) === FALSE) {
                    $this->PushError("_data_write", "Can't write to socket");
                    return FALSE;
                }
                $block = substr($block, $t);
            } while (!empty($block));
            return true;
        }

        function _data_close()
        {
            @fclose($this->_ftp_data_sock);
            $this->SendMSG("Disconnected data from remote host");
            return TRUE;
        }

        function _quit($force = FALSE)
        {
            if ($this->_connected or $force) {
                @fclose($this->_ftp_control_sock);
                $this->_connected = false;
                $this->SendMSG("Socket closed");
            }
        }
    }
}